home *** CD-ROM | disk | FTP | other *** search
/ Click Press Kit / Click Press Kit.iso / pc / main.dxr / Internal_105_EnglishSingleState.ls < prev    next >
Encoding:
Text File  |  2006-05-31  |  3.9 KB  |  126 lines
  1. property spriteNum, myStandardMemberEnglish, myRolloverMemberEnglish, myMouseDownMemberEnglish, myMessageTypeEnglish, myMessageEnglish, myXEnglish, myYEnglish
  2. global gMaster
  3.  
  4. on mouseUp me
  5.   if (gMaster.pLanguageMode = "english") or (gMaster.pLanguageMode = "spanish") then
  6.     mDoThis(me)
  7.   end if
  8. end
  9.  
  10. on mouseDown me
  11.   if gMaster.pLanguageMode = "english" then
  12.     sprite(spriteNum).member = me.myMouseDownMemberEnglish
  13.   end if
  14. end
  15.  
  16. on mouseEnter me
  17.   cursor(280)
  18.   if gMaster.pLanguageMode = "english" then
  19.     sprite(spriteNum).member = me.myRolloverMemberEnglish
  20.   end if
  21. end
  22.  
  23. on mouseLeave me
  24.   cursor(-1)
  25.   if gMaster.pLanguageMode = "english" then
  26.     sprite(spriteNum).member = me.myStandardMemberEnglish
  27.   end if
  28. end
  29.  
  30. on beginSprite me
  31.   if gMaster.pLanguageMode = "english" then
  32.     sprite(spriteNum).member = me.myStandardMemberEnglish
  33.     sprite(spriteNum).loc = point(myXEnglish, myYEnglish)
  34.   end if
  35. end
  36.  
  37. on mDoThis me
  38.   case myMessageTypeEnglish of
  39.     "no code":
  40.       nothing()
  41.     "do":
  42.       do(myMessageEnglish)
  43.     "sendAllSprites":
  44.       sendAllSprites(symbol(myMessageEnglish))
  45.   end case
  46. end
  47.  
  48. on mSetUpGraphics me
  49.   case gMaster.pLanguageMode of
  50.     "english":
  51.       mSetUpEnglishSingle()
  52.     "spanish":
  53.       sendAllSprites(#mSetUpSpanishSingle)
  54.   end case
  55. end
  56.  
  57. on mSetUpEnglishSingle me
  58.   if gMaster.pLanguageMode = "spanish" then
  59.     alert("language should be English")
  60.   else
  61.     sprite(spriteNum).loc = point(myXEnglish, myYEnglish)
  62.     sprite(spriteNum).member = myStandardMemberEnglish
  63.   end if
  64. end
  65.  
  66. on mSetOnStage me
  67.   if gMaster.pLanguageMode = "english" then
  68.     vHorz = sprite(spriteNum).myXEnglish
  69.     vVert = sprite(spriteNum).myYEnglish
  70.     sprite(spriteNum).loc = point(vHorz, vVert)
  71.   else
  72.     vHorz = sprite(spriteNum).myXSpanish
  73.     vVert = sprite(spriteNum).myYSpanish
  74.     sprite(spriteNum).loc = point(vHorz, vVert)
  75.   end if
  76. end
  77.  
  78. on mSetOffStage me
  79.   sprite(spriteNum).loc = point(2000, 2000)
  80. end
  81.  
  82. on isOKToAttach me, aSpriteType, aSpriteNum
  83.   tisok = 0
  84.   if aSpriteType = #graphic then
  85.     if PermittedMemberTypes().getOne(sprite(aSpriteNum).member.type) > 0 then
  86.       tisok = 1
  87.     end if
  88.   end if
  89.   return tisok
  90. end
  91.  
  92. on PermittedMemberTypes me
  93.   return [#bitmap]
  94. end
  95.  
  96. on GetSuitableMembers me, permittedTypes
  97.   cursor(4)
  98.   suitableMembersList = []
  99.   maxCastLib = the number of castLibs
  100.   repeat with theCastLib = 1 to maxCastLib
  101.     maxMember = the number of castMembers of castLib theCastLib
  102.     repeat with memberNumber = 1 to maxMember
  103.       theMember = member(memberNumber, theCastLib)
  104.       if permittedTypes.getPos(theMember.type) then
  105.         if theMember.name = EMPTY then
  106.           suitableMembersList.append(theMember)
  107.           next repeat
  108.         end if
  109.         suitableMembersList.append(theMember.name)
  110.       end if
  111.     end repeat
  112.   end repeat
  113.   cursor(-1)
  114.   return suitableMembersList
  115. end
  116.  
  117. on getPropertyDescriptionList me
  118.   theMember = sprite(the currentSpriteNum).member
  119.   memberType = theMember.type
  120.   permittedTypes = PermittedMemberTypes(me)
  121.   theMemberNum = theMember.number
  122.   suitableMembersList = GetSuitableMembers(me, permittedTypes)
  123.   descriptionList = [#myStandardMemberEnglish: [#comment: "ENGLISH - MouseUp member", #format: #member, #range: suitableMembersList, #default: theMember], #myRolloverMemberEnglish: [#comment: "Rollover member", #format: #member, #range: suitableMembersList, #default: member(theMember)], #myMouseDownMemberEnglish: [#comment: "MouseDown member", #format: #member, #range: suitableMembersList, #default: member(theMember)], #myMessageTypeEnglish: [#comment: "Action on mouseUp", #format: #string, #range: ["do", "sendAllSprites", "no code"], #default: "do"], #myMessageEnglish: [#comment: "Name of code handler", #format: #string, #default: "YourCustomMessage"], #myXEnglish: [#comment: "X location", #format: #integer, #default: 100, #range: [#min: 0, #max: 800]], #myYEnglish: [#comment: "Y location", #format: #integer, #default: 100, #range: [#min: 0, #max: 600]]]
  124.   return descriptionList
  125. end
  126.